object FrmNNTP: TFrmNNTP Left = 295 Top = 117 Width = 407 Height = 398 BorderIcons = [biSystemMenu] Caption = 'Newsgroups' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDefaultPosOnly Scaled = False OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object PnlTop: TPanel Left = 0 Top = 0 Width = 399 Height = 62 Align = alTop BevelOuter = bvNone TabOrder = 0 object Label1: TLabel Left = 8 Top = 10 Width = 115 Height = 16 Caption = '&Newsgroup Server:' end object Label2: TLabel Left = 8 Top = 36 Width = 122 Height = 16 Caption = 'Optional, &Username:' FocusControl = EditUsername end object Label3: TLabel Left = 230 Top = 36 Width = 63 Height = 16 Caption = '&Password:' FocusControl = EditPassword end object EditUsername: TEdit Left = 140 Top = 33 Width = 79 Height = 24 TabOrder = 0 end object EditPassword: TEdit Left = 312 Top = 33 Width = 79 Height = 24 PasswordChar = '*' TabOrder = 1 end object EditServer: TComboBox Left = 140 Top = 7 Width = 251 Height = 24 ItemHeight = 16 TabOrder = 2 end end object PnlBottom: TPanel Left = 0 Top = 320 Width = 399 Height = 38 Align = alBottom BevelOuter = bvNone TabOrder = 2 DesignSize = ( 399 38) object BtnOK: TButton Left = 202 Top = 4 Width = 93 Height = 30 Anchors = [akTop, akRight] Cancel = True Caption = '&OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = BtnOKClick end object BtnCancel2: TButton Left = 302 Top = 4 Width = 93 Height = 30 Anchors = [akTop, akRight] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 1 end end object PageControl1: TPageControl Left = 0 Top = 62 Width = 399 Height = 258 ActivePage = Tab2 Align = alClient TabIndex = 1 TabOrder = 1 object Tab1: TTabSheet Caption = 'Subscribed Groups' object lbSubscribed: TListBox Left = 0 Top = 0 Width = 391 Height = 208 Align = alClient BorderStyle = bsNone ItemHeight = 16 TabOrder = 0 end object PnlUnsubscribe: TPanel Left = 0 Top = 197 Width = 391 Height = 30 Align = alBottom BevelOuter = bvNone TabOrder = 1 object BtnUnsubscribe: TButton Left = 2 Top = 4 Width = 118 Height = 25 Caption = 'Unsubscribe' TabOrder = 0 end end end object Tab2: TTabSheet Caption = 'All Groups' ImageIndex = 1 object PnlAllList: TPanel Left = 0 Top = 0 Width = 391 Height = 227 Align = alClient BevelOuter = bvNone TabOrder = 0 DesignSize = ( 391 227) object GroupTree: TElTree Left = 0 Top = 28 Width = 391 Height = 169 Cursor = crDefault LeftPosition = 0 DragCursor = crDrag Align = alClient AutoCollapse = False DockOrientation = doNoOrient DefaultSectionWidth = 120 BorderStyle = bsNone BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom] DoInplaceEdit = False ExplorerEditMode = False Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] GradientSteps = 64 HeaderHeight = 19 HeaderHotTrack = False HeaderSections.Data = {F4FFFFFF00000000} HeaderFont.Charset = DEFAULT_CHARSET HeaderFont.Color = clWindowText HeaderFont.Height = -13 HeaderFont.Name = 'MS Sans Serif' HeaderFont.Style = [] HorzScrollBarStyles.ShowTrackHint = False HorzScrollBarStyles.Width = 17 HorzScrollBarStyles.ButtonSize = 21 IgnoreEnabled = False IncrementalSearch = False KeepSelectionWithinLevel = False LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack LineHeight = 17 MouseFrameSelect = True MultiSelect = False OwnerDrawMask = '~~@~~' ScrollbarOpposite = False ScrollTracking = True ShowCheckboxes = True ShowLeafButton = False SortType = stCustom StoragePath = 'Tree' TabOrder = 1 TabStop = True Tracking = False UseCustomScrollBars = False VertScrollBarStyles.ShowTrackHint = True VertScrollBarStyles.Width = 21 VertScrollBarStyles.ButtonSize = 8 VirtualityLevel = vlNone OnItemChecked = GroupTreeItemChecked OnItemExpand = GroupTreeItemExpand end object PnlSearch: TPanel Left = 0 Top = 0 Width = 391 Height = 28 Align = alTop BevelOuter = bvNone TabOrder = 0 DesignSize = ( 391 28) object Label4: TLabel Left = 8 Top = 4 Width = 46 Height = 16 Caption = '&Search:' FocusControl = EditSearch end object EditSearch: TEdit Left = 63 Top = 2 Width = 324 Height = 24 Anchors = [akLeft, akTop, akRight] TabOrder = 0 OnChange = EditSearchChange end end object PnlDownloading: TPanel Left = 66 Top = 42 Width = 258 Height = 80 Anchors = [akLeft, akTop, akRight] Caption = 'Downloading list of groups...' TabOrder = 2 Visible = False DesignSize = ( 258 80) object BtnCancel: TButton Left = 155 Top = 52 Width = 98 Height = 24 Anchors = [akTop, akRight] Cancel = True Caption = 'Cancel' TabOrder = 0 OnClick = BtnCancelClick end end object Panel1: TPanel Left = 0 Top = 197 Width = 391 Height = 30 Align = alBottom BevelOuter = bvNone TabOrder = 3 object BtnSubscribe: TButton Left = 2 Top = 4 Width = 118 Height = 25 Caption = '&Subscribe' TabOrder = 0 OnClick = BtnSubscribeClick end object BtnList: TButton Left = 128 Top = 4 Width = 118 Height = 25 Caption = '&Refresh List' TabOrder = 1 OnClick = BtnListClick end object cbHide: TCheckBox Left = 258 Top = 8 Width = 124 Height = 17 Caption = '&Hide junk groups' Checked = True State = cbChecked TabOrder = 2 OnClick = cbHideClick end end end end end object NNTP: TmsNNTPClient Version = '2.02' Port = 119 OnTransferProgress = NNTPTransferProgress Authorization = False Left = 132 Top = 174 end object Article: TmsArticle ContentType = 'text/plain' Version = '2.02' Left = 424 Top = 232 end object TimerType: TTimer Enabled = False OnTimer = TimerTypeTimer Left = 238 Top = 172 end end